home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 45
/
64er_Magazin_Sonderheft_45_19xx_Markt__Technik_de_Side_A.d64
/
listing 11
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
485b
|
13 lines
10 printchr$(147) :rem bildschirm loeschen
20 poke 2040,13 :rem daten sprite 0 aus block 13
30 for i=0 to 62:poke 832+i,255:next:rem spritedaten eintragen
40 v=53248 :rem startadresse des videochip
50 poke v+21,1 :rem sprite 0 einschalten
60 poke v+39,1:poke v+23,1:poke v+29,1:rem sprite 0 farbe geben und vergroessern
70 poke v+1,100 :rem sprite 0 y-position
80 j=488
90 hx=int(j/256):lx=j-256*hx:ifhx<0then80
100 poke v,lx:poke v+16,hx
110 j=j-1:if j>511 then j=0
120 if j<488 or j>348 then 90